home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / misc / math / Rachmistrz.lha / Rachmistrz_Demo / Instalacja next >
Text File  |  1999-02-10  |  5KB  |  163 lines
  1. ;    ****************************************************************
  2. ;
  3. ;            Installation script for Rachmistrz V2.0_Demo                                
  4. ;            Copyright 1998-11-17 by Boguslaw Cygal
  5. ;
  6. ;    ****************************************************************
  7. ;============================================================================
  8. (set MSG_ENDNOTE "Instalacja zakoïczona .\nAby uruchomiê Rachmistrza kliknij na jego ikonie.\n\n")        
  9. (set #install-msg
  10. (cat 
  11.      "\nTen skrypt zainstaluje program Rachmistrz.\n"
  12.      "w wersji demonstracyjnej na twoim komputerze\n"
  13.      "Aby uzyskaê peînâ wersjë programu musisz sië\n"
  14.      "zarejestrowaê (patrz opcja Informacja w programie )\n\n"
  15.      "Rachmistrz © 1996-1998 autor Paweî Cygal\n"
  16.      "Wszelkie prawa zastrzeûone"    
  17. ))
  18.  
  19. ;=============================================================================
  20.  
  21. (message #install-msg)
  22. (set srcdir "")
  23. (set destination
  24.   (askdir (prompt  "Wybierz katalog docelowy")
  25.           (help    "Musisz posiadaê okoîo 1200 kB wolnego miejsca dla instalacji")
  26.           (default @default-dest)
  27.   )
  28. )
  29. (set main_path destination)
  30. (set destination (tackon destination "Rachmistrz_Demo"))
  31. (set @default-dest destination)
  32.  
  33. (copyfiles 
  34.        (prompt "Instalujë program gîówny")
  35.            (help   MSG_GUIDE_HELP)
  36.            (source "RachmistrzV2.0_Demo")
  37.            (dest   destination)
  38.            (confirm)
  39.            (infos)
  40. )
  41.  
  42. (copyfiles
  43.         (prompt ("\nInstalujë reqtools.library"))
  44.         (help @copylib-help)
  45.         (source (tackon srcdir "Libs/"))
  46.         (dest "LIBS:")
  47.         (pattern "#?")
  48.         (confirm)
  49. )
  50. (copyfiles 
  51.        (prompt "\nInstalujë czcionkë Rach.font")
  52.            (help   "Czcionka Rach.font jest niezbëdna \ndla poprawnej pracy programu")
  53.            (source "Fonts/")
  54.        (choices "Rach" "Rach.font")
  55.            (dest   "FONTS:")
  56.            (confirm)
  57. )
  58. (copyfiles 
  59.        (prompt "\nInstalujë plik z ustawieniami Rachmistrz.prefs")
  60.            (help   (cat "Plik ten zawiera wszystkie bieûâce ustawienia programu\n"
  61.            "Niestety w wersji demo niemoûliwy jest zapis wîasnych\n"
  62.            "ustawieï, co moûe byê przyczynâ pewnych utrudnieï"))    
  63.            (source "S/")
  64.        (choices "Rachmistrz.prefs")
  65.            (dest   "S:")
  66.            (confirm)
  67. )
  68. (copyfiles 
  69.        (prompt "\nInstalujë rysunki figur geometrycznych")
  70.            (help   (cat "Zainstalowane zostanâ obrazki iff figur\n"
  71.             "geometrycznych bëdâce ilustracjami do\n"
  72.             "wzorów zawartych w przykîadowych bazach"))
  73.            (source "Obrazki/")
  74.            (dest   (tackon destination "Obrazki"))
  75.            (confirm)
  76.            (all)           
  77. )
  78.  
  79. (copyfiles 
  80.        (prompt "\nInstalujë przykîadowe bazy ze wzorami")
  81.            (help   MSG_GUIDE_HELP)
  82.            (source "Wzory/")
  83.            (dest   (tackon destination "Wzory"))
  84.            (confirm)
  85.            (all)           
  86. )
  87. (copyfiles 
  88.        (prompt "\nInstalujë przykîadowe skrypty")
  89.            (help   MSG_GUIDE_HELP)
  90.            (source "Skrypty/")
  91.            (dest   (tackon destination "Skrypty"))
  92.            (confirm)
  93.            (all)           
  94. )
  95. (copyfiles 
  96.        (prompt "\nInstalujë przykîadowe ukîady równaï")
  97.            (help   MSG_GUIDE_HELP)
  98.            (source "Gauss/")
  99.            (dest   (tackon destination "Gauss"))
  100.            (confirm)
  101.            (all)        
  102. )
  103.  
  104. (copyfiles 
  105.        (prompt "\nInstalujë screen shoty okien programu")
  106.            (help   MSG_GUIDE_HELP)
  107.            (source "Screenshots/")
  108.            (dest   (tackon destination "ScreenShots"))
  109.            (confirm)
  110.            (all)        
  111. )
  112. (copyfiles 
  113.        (prompt "\nInstalujë przykîadowe pliki z danymi dla regresji")
  114.            (help   MSG_GUIDE_HELP)
  115.            (source "Regresja/")
  116.            (dest   (tackon destination "Regresja"))
  117.            (confirm)
  118.            (all)           
  119. )
  120.  
  121. (copyfiles 
  122.        (prompt "\nInstalujë plik Rachmistrz.readme")          
  123.        (help   MSG_GUIDE_HELP)  
  124.            (source "Rachmistrz.readme")
  125.            (dest   destination)         
  126.        (confirm)
  127. )
  128.  
  129. (copyfiles 
  130.        (prompt "\nInstalujë plik rejestracyjny orderform")           
  131.            (help   MSG_GUIDE_HELP)
  132.            (source "orderform")
  133.            (dest   destination)         
  134.        (confirm)
  135. )
  136.  (copyfiles (prompt "\nInstalujë ikonki")
  137.            (help   MSG_GUIDE_HELP)
  138.                (source "Ikony/")
  139.                (dest   destination)
  140.            (pattern "#?.info")
  141.            (confirm)    
  142.  )
  143.  
  144.  (copyfiles (prompt "\nInstalujë ikonë katalogu programu")
  145.    (help   MSG_GUIDE_HELP)
  146.    (source "Ikony/glowna/Rachmistrz_demo.info")
  147.    (dest main_path)
  148.    (confirm)
  149.  )
  150.  
  151.  
  152. (set command1 (cat  "ASSIGN Rachmistrz_Demo: " @default-dest "\n"))
  153.  
  154. (startup "Rachmistrz.app"
  155.     (prompt "\nZapisujë przypisania programu w pliku User-Startup")
  156.     (help   MSG_GUIDE_HELP)
  157.     (confirm)                                        
  158.     (command command1)
  159. )
  160.  
  161. (makeassign "RACHMISTRZ_DEMO" @default-dest)
  162. (exit MSG_ENDNOTE)
  163.